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nzsigzad czar -izcbcd (uzsigzad is" dacioialNuzber , uzsigzad izt icigizCouzz) 
/- 

gi7en an integer, pre due as and racuris a 3C3 (bizary-ccded 
decizal) szrizg, iz -uicz each byta (uzsigzad czar) is logicallT split 
into r-c 4-bit "nibbles", eacz at '-nizz contains one digit ox cze 
origizai iztager. Also returned as az ardent -b y- ret aranca is tze 
nuzber at digits found iz tze origizai izzager, coicz is usarui tor 
lacar aiar.irulaticus . 

Tze nosz significant digit o* cza origizai iztager is azcrad "tirsu", 
i.e. iz tza aigz-crdar nibble oi tze laitzcst byza or cze 3C3 szrizg. 

Iz tze czrrazt izniasanzation, (ncn-iaadizg) taroes iz tze origizal 
izzager ara stored as nan digit 'A' (OzA) iz ordar to distizguisz tzaz 
tros or "filler" nibbles arc/or bye as f saicz actual^ cczzaiz 

zeroes . 
-/ 

{ 

// tzese ara static to reduce repeat zezcry allocation — for rczerrzaud 

static izt zuzCf Bytas ; // bytas needed to stora it as 2CD 

static izt aut£f Digits; // tor iztarzal osa only! 

static unsigned czar -aabnz; // return value goes here 



_ztc unsigned czar -b^a?tr; // oorLzg pointer for loading 3CJbuz\ . 

s-a~c czarV-^aiz-* // used for decizal- to -ben conversion 

static czar 3C2digi^Ci0l - " '~ is ^ z Z * do ~ ±C ** 

{ QxA, 1, 2, 3. S, 6. 7, 3. 9 >; // scoring digit 0 as OxA 

// figure out the number oi digits iz » decizalNunber 1 
nuzOf Digits * logiQC (double ) deciaal*Iuzber) * L; 
iz (nuzdf Digits <= 0) 

return MULL; 

digizCouut - zuzOfDigits; // digi-^uuz is -*^ ed co ^ a Mer 
uuzafSytas = (izt ) call ((double ) nuzulfDigits 1 2 ' 0) ; 

// set ap storage and pointers accordingly 
3CDbur 3 aetf unsigned czartzuinGf Sytas] ; 
bytePtr => iSCCbuzCnuaOtBytas-i] ; 



* a/— r-r-«c* ruuczianiuz deoends on t—zs 
// ciaar out tza contants of 3C-OU-- c-rr-c- .^-^ s 

bzero (BCDbuz , zuzGfByzas) ; 
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/ o "K" 



// '-a are storizg zCZ digits rrts zest least sizzif icaz- , gc izg 
/ / 1st": to -igzt ; aid tzare ar^ t~c digits per byta . If tiara are 
//as. odd rzzaer a- dibits to store , tzaz tie least siszif iczzz decizal 
// digit ---ill Tizd a? iz zz,$ SIGK-crdar zibble of cb.a last (rigztzcst) 
// by -a asad; if tzare az3 an avez zzzber of digits, tzis las* digit 
// sill aid zz iz tza L-V-crdar zibbla of tze last byta . Size a va start 
//by 3torizg the la as- sigzificzzz dacizal digit azd rove baczvards , 
// -e aara "a izc-s riszt avav -jzzcz zibbia so tut iz iz. CED. 

if (zu±3f2igit3 7. 2) // -a have az odd auscer af digits 

3it£zift s4; // start iz zigz-ordar azbbl'a (laft-szift 4 bits) 

else 3itSzift * 0; // start iz low-order aibbla (zc szirt) 



waila (zuzOfOigits — ) { // '-a zave at least oze acre digit to do 

// jet zz.e last digi- of ' daciraiJfuzoer ' azd out it iz ~aa 
// artzotriata zibbia 
•bytaftr (2C3digit3 Ccacisaiilusser S 10] « 3itSzizt) ; 



// acv , -ye aeec to get ready to deal sitz tze aezt dir.it . 
// crafty coda alart! 3it£cift caz ba*re -b.e ralnas 0 azd 4; if it 
// is ctrraztir 0, thaz -e lust zazdled tze LCW-crdar aibble of a 
// byte, azd -a tLH stay rttJiiz tzis byta to do tza tart digit. 
// 3ut if 3itSaizt is czzreztlT 4, *a j'ust did tza SICE-ordar byta 
// azd -e caz scve bacii to tie tra^rious byta. tza fsllovizg 
// rery cozfzsizg coda does that for you: 
bytaPtr -« (oitSzifz / 4) ; 

// of course, tze valaa of 3it£aift sust qc? be toggled: 

BitSaift * 4 - 3itSzift; 

// fizally, -a Liza at 'decdra ■ :iuscer ' to deal sith ~za aazt digit 

// iz lize, by '*ay of cirtvizg aray tie last digit -a lookad at, ozicr, 

// sas tze laast sigzificazt digit of 1 dec izalNuzb er ' . 

decizal-Iuzber /= 10; 

//at Iczg last, se're ready to copy the digit izto tza ZCZ strizg: 

// -bytartr (HCZdig^ts Cdacizai:ruzber 7. 10] << 3it:Tzift) ; 
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static nWHasoTacia h: 

(static RWKasftTacieitarstcr it(h); 
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Lypedef ftruct i 

unsigned ahart struct.typa ; ■ 

// telle u» How to interpr-t the tx_data 
// 100 i t JTonnectPaclcat 
// 1002 t_fcxConn*c '-Packet 
unsigned abort len: // length of data la tx.data 
char tx_data[2S2]; // 2S2 bytea to handle future expansion 
} tx.packet; 




■j 



typedef atruct { 

unsigned char hv.varaion; // idantiiiea the originator of this struct 
unsigned chax inversion; // 1 »• lat version 

// the cotuiwction type should be the first bytes read. 

// Uih i.ypes are: 

// i - c*ll«r non-let time 

// ? - ctiliad 

// 3 - caller 1st time 

// 4 - mmic 

// 5 - message 

// / - self-teat 

// 8 - upgrade request 

unsigned abort int connect.type ; 
unsigned char my_phone_iiua[8] ; 
unsigned char aia.phone.nua ens 
unaignad long ny^aerial^nua; 
unaignad long hia.aarial.nua; 
unsigned char ay_ip[4]; 
t.BilllngData bill.rac; 
> V.ConnectPacxat; 



typed*! ulx'uul { 

unaignad long atart_tia«; // atart tiao of previous service 

unaignad long atop^time; // duration (in teconda) of previous aarvice 

unsigned char phone [8] ; // phone nuabar of previoua call 

unaignad char Btat_datal3] ; // statistical data about previous^ervTcT" 

> i..3illingData; 




// b 



typed*! struct { 

unsigned ehort Atfuct.type; 

// tails us hou \o interpret the ts^data 
// 1001 t_f!nn nan .'.Packet 
// 1002 t^BxCo«ii»ctP4cx*t 
unsigned short lea; // l«n$*h at data in tx.lata 
caar tx_dataC252] ; // 252 bytes to handle future expansion 
J tx packet; 



typedef struct { 

// Nev fields added to alloy tor commands 
unsigned char pckt.r/pe; // 0 •« message, l error 
unsigned char me.t7pe; 
// a*»»ages; 

// 0 - return uaabl* TP addr, 

// 1 « ttu uiaLch; IP O.O.O.O, 

// 2 - go to another server; I? address gi*«n 

// 3 * no action to take (response to message or self-teat; IP 

// srroru: 

// 0 = problem on ay end: rstr? from scratch 
// I • problem with your data*; retry from scratch 
// 2 - you ar% not an active uaer of thm r«qu««tad 77 Service, 
unsigned char comraaixdType; 

— ■* no cnfliTflmvt 

// 1 ■* contact command server for further co mman ds 

// send aev iv addr in command 

// 2 — set Update Available light on 

// 3 un*«t Update Available- lijht 

// 4 miv main server 

// send aev I? addr in command 

// S nev backup server 

/ / nand nev IP addr in command 

unaignsd char commandSizs; // number of bytes found in command Q 
nnsiped char hi3.ip[4]; 
unsigned long cux^tiae; 
char command [32] ; 

//If CocaaadSixe <■ 28 va can rely on 

// bytee commandC28] , . com«an<i[3l] contaiaiag the 

// sender serial number Ju*t far debugging purposes, 

//we have not ap«ci*ied what a command looks like. 

// commandTypa — 2: 

// commands iza - 8, command = "10 2 l\r\n M 
// coBaandlype 4: 

// commoadSize ~ 21, command = "0 1 0 137 140 7 222\r\n rt 
// COmmandType •« 21; 

// command2iz9 » a, command • ''0 I 1 137 HQ 7 222\r\n" 
> t.axCannect Packet ; 




fUauita ?roa geaeratioa Qt atatiexiee 



Ab»cilut.t* Value Cauatax* 
m Entered Idla «*^« 2 983131 

a F~3«rv*r csanectiaa Haauest*; 0 
m £at.ar«d Seecilead state : 0 

a* Er.t*r*d UeecVnta ataca : 0 
a QeacfUad ox : 0 

a Qeacftead failed: vroag tisa : 0 
a D«»u3e&d failed: diecoanact : Q 
m DeecfUad filled.: orderly r«l: 0 
a Cfco^Write ok : 0 

ia 0eacVrit« failed : 0 

a In It N«w Descriptor : I 

a Coaa diacoa ia coapieta lisx: 0 
a Invalid Ciieat ?crt ; 0 

a Watered aouaekaatpiaj : $35099 

a Compiled Conaectioa ; 0 

a E-tp^red Connection RQ : 0 

a Inactive Connection. HQ : 0 

a tsCliwit Writ* oic ; 29 

a LaClieat Vtita failed : 0 

a Serial Nunb«r Invalid : 0 

rt4jcia«a V*lu« Counter a 
m Ka* Caoplrce Connection Q * 0 
si Max Sc*clt iiao : 0 

a Max Connection. Liar Six* * O 

Miaiaua Vein* Caaatara •»»«» 
a Mia Stacx aiae : 2147482647 

fa flm Connexion List Size : 0 



.••««»»*«+ Sad or StatiaticaHaport 
Mcaieeriag 3wpped 



Hoa Fee £J 13:06:31 1998> Haw legged eoaaiott of FFSexver: 



" Ken. Fwb 22 13:06:31 1398>* rttimoer or. Iavaiid Serial Ifoabiera: 1000 „ 

Men Fno 13:06:55 1998> Mev TNCliear ClP.Port): t37_X40.8. X04>36239 

Kca i'M 23 13:07:55 1998> Cloelag THClient ( IB. Port ) i 137.140,8. 1Q4. 36239 

Hoa ?«jd 23 12:07:56 1998> (d)""aatacia ConnectTyp* (17. Pore); 127,140.3,104,36239 

k «on F*& 23 13:07:57 1998> (CL) Vron* Pecjcet Size (I?. Port) : 127.140.3.104.26229 

Hon F#o 23 13:07:53 1S98> (CI) PcxtType I- 1001 (I??ort) : 127.140.3.104.38229 

«oa Feb 23 12:07:53 1998> (CL) tS^packetPrr was NULL (I?. Port): 137 . 140. a. 104.36229 

Ken Feb 23 12:07:50 1998> (CL) Failed oa attempt t* ineert (IP. Port): 137.140.3. 104 



